PC Gamer (Italian) 41/PC Gamer IT CD 41 2-2.iso/utility/CISEI/8BIT/CSEI.DXR/00043_TastiDOWN-UP.ls

Text File | 1998-10-06 | 1.6 KB | 60 lines

property NumCanale, nonpremuto, premuto, evidente, CursorUP, CursorDOWN

on birth me, c, np, pr, ev, cu, cd
  set the NumCanale of me to c
  set the nonpremuto of me to np
  set the premuto of me to pr
  set the evidente of me to ev
  set the CursorUP of me to cu
  set the CursorDOWN of me to cd
  return me
end

on abbassa me
  global NumTasto, LastNumTasto
  set LastNumTasto to NumTasto
  set the cursor of sprite the NumCanale of me to the CursorDOWN of me
  set the puppet of sprite the NumCanale of me to 1
  set the member of sprite the NumCanale of me to member the premuto of me
  updateStage()
end

on alza me
  global NumTasto, LastNumTasto
  set the puppet of sprite the NumCanale of me to 0
  updateStage()
  if NumTasto = LastNumTasto then
    set the cursor of sprite the NumCanale of me to the CursorUP of me
    tastimain()
    exit
  end if
  set LastNumTasto to 0
end

on evidenzia me
  global NumTasto, LastEvidente, f1, f2
  set the cursor of sprite the NumCanale of me to the CursorUP of me
  set the puppet of sprite the NumCanale of me to 1
  set the member of sprite the NumCanale of me to member the evidente of me
  set LastEvidente to NumTasto
  if f2 <> 0 then
    set a to "Com" & NumTasto
    put field a into field "ComTot"
    set f2 to 0
    set f1 to 1
  end if
  updateStage()
end

on disevidenzia me
  global f2, f1
  set the puppet of sprite the NumCanale of me to 0
  set the cursor of sprite the NumCanale of me to 0
  if f1 <> 0 then
    put "Muoviti con il mouse sopra una scritta per evidenziare l'argomento..." into field "Comtot"
    set f2 to 1
    set f1 to 0
  end if
  updateStage()
end